5 REM:** COMPUTE GAZETTE JUL 83 ** 6 REM:** SKYDIVER ** 8 T=54272:E=2 10 PRINT"[147]":GOTO60100 12 A(1)=1192:A(2)=1202:A(3)=1209 14 SC=0:BO=100:BA=3:WA=7:W=8:EX=0 16 PRINT"SCORE: 000 " 20 GOSUB5000 21 PRINT"";TAB(14);" [157][157][157]";A$ 22 CT=39+INT(RND(TI)*20+1):CC=0 30 A=0 100 PRINT"";TAB(A);"[146] [223][157][157][146] [162][162]":A=A+1 102 CC=CC+1:IFCC>=CT ANDA<39ANDA>1THEN120 105 IFA>=38THENPRINT"";TAB(A);" [157] ":A=0 110 GOSUB1000:IFFR<>0THENFORI=1TO50:NEXT:GOTO100 112 IFA>38ORA<1THEN100 120 PRINT"";TAB(A);" [157] " 200 B=1146+A:T=INT(RND(TI)*8+1):T=T+1 210 CH=46:C=0 212 C=C+1 220 POKEB,CH:POKEB,32:B=B+22 230 POKEB+T7,4:POKEB,CH:IFC=WTHENIFR=4THENPOKEB,32:B=B-1:POKEB+T7,4:POKEB,CH:C=0 330 IFC>=WTHENIFR=8THENPOKEB,32:B=B+1:POKEB+T7,4:POKEB,CH:C=0 340 D=D+1 350 IFD>=WATHENPOKEB,32:B=B+40 355 IFD>=WATHEND=0:IFPEEK(B)<>32THEN3000 360 POKEB+T7,4:POKEB,CH 370 WI=WI+1 390 IFWI>=SANDDI=-1THENPOKEB,32:B=B+DI:POKEB+T7,4:WI=0 395 IFWI>=SANDDI=1THENPOKEB,32:B=B+DI:POKEB+T7,4:WI=0 400 IFPEEK(B)<>32ANDPEEK(B)<>CHTHEN3000 410 POKEB,CH 500 GOTO300 1000 R=PEEK(56321) 1010 FR=RAND16 1020 R=15-(RAND15):RETURN 3000 POKEB+T7,4 3010 IFP=1THENIFB=1831ORB=1832THENPOKEB,CH:GOTO4000 3020 IFP=2THENIFB=1842THENPOKEB,CH:GOTO4050 3030 IFP=3THENIFB=1851ORB=1853ORB=1855THENPOKEB,CH:GOTO4100 3040 POKEB,170:GOTO12000 4000 PRINT"5 X";BO;"=";5*BO 4010 VA=5*BO:GOTO10000 4050 PRINT"10 X";BO;"=";10*BO 4060 VA=10*BO:GOTO10000 4100 PRINT"2 X";BO;"=";2*BO 4110 VA=2*BO:GOTO10000 5000 PRINT"" 5020 PRINT" [144][182][158][162][162][162][162][144][181] [144][182][158][162][162][162][144][181] [182][158][162][162][162][162][162][144][181]" 5030 PRINT" 5X 10X 2X [146]"; 5040 FORI=1984TO2023:POKEI+T7,6:POKEI,160:NEXT 5041 IFBA<=0THEN60000 5042 PRINT"";TAB(17);" " 5043 IFBA>1THENPRINT"";TAB(18);:FORI=1TOBA-1:PRINT"[193]";:NEXT:PRINT 5045 SS=INT(RND(TI)*3+1):DI=INT(RND(TI)*2+1):IFDI=2THENDI=-1 5048 IFSS=1THENS=5:SD=15 5049 IFSS=2THENS=10:SD=10 5050 IFSS=3THENS=15:SD=5 5052 D$="RIGHT":IFDI=-1THEND$="LEFT" 5053 IFNJ>=NETHENBO=BO+50:PRINT"BONUS ADVANCE TO";BO:PRINT"" 5054 IFNJ>=NETHENIFWA>4THENWA=WA-1 5055 IFNJ>=NETHENJ=0:IFW<18THENW=W+1 5056 PRINT"";TAB(8);"WIND:";SD"TO ";D$:GOSUB50000 5057 FORK=1TO1000:NEXT:PRINT" " 5060 FORI=1104TO1864STEP40:POKEI,96:POKEI+39,96:NEXT 5070 RETURN 10000 JM=JM+1:NJ=NJ+1 10100 FORP=1TOVA/10:PRINT"SCORE:";SC:POKES3,0:SC=SC+10:NEXT:PRINT"SCORE:"; 10110 FORID=1TO1000:NEXT:IFEX=0ANDSC>=5000THENBA=BA+1:EX=1 10120 PRINT" ":GOTO20 12000 PRINT"SORRY NO BONUS!":BA=BA-1 12010 FORID=1TO500:NEXT 12120 POKEB,32:PRINT" ":GOTO20 50000 REM:**SELECTION** 50010 PRINT" 5X 10X 2X":P=1:Z=P 50020 TI$="000000" 50025 POKEA(P),PEEK(A(P))+128AND255 50027 TM=15-VAL(TI$) 50028 PRINT"";TAB(10);" [157][157][157]";TM:IFTM=0THENP=INT(RND(TI)*3+1):GOTO50100 50030 GOSUB1000:IFR=4ORR=8THENX=PEEK(A(P)):IFX>129THENPOKEA(P),X+128AND255 50035 IFR>127THEN50100 50040 GOSUB1000:IFR=4THENP=P-1:IFP<1THENP=3 50045 IFR=8THENP=P+1:IFP>3THENP=1 50050 FORID=1TO100:NEXT:GOTO50025 50100 A$="2X":IFP=1THENA$="5X" 50110 IFP=2THENA$="10X" 50120 PRINT" YOU MUST LAND ON ";A$ 50140 FORID=1TO1500:NEXT 50150 PRINT"":FORID=1TO18:PRINT" ":NEXT:RETURN 60000 PRINT"GAME OVER":IFSC>HITHENHI=SC 60010 FORHD=1TO2000:NEXT 60020 PRINT" " 60100 POKE53281,1:POKE53280,6 :PRINT" [144] SKY DIVER" 60110 PRINT:PRINT:PRINT:PRINT"" 60120 PRINT" USE JOYSTICK TO PLAY" 60130 PRINT:PRINT:PRINT:PRINT"" 60140 PRINT" HIGH SCORE":PRINT"" 60150 XX=LEN(STR$(HI))/2:PRINTTAB(16-XX);HI 60160 GOSUB1000:IFFR<>0THEN60160 60170 PRINT"[147]":FORK=1TO18:PRINT" ":NEXT:GOTO12